home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
tpref.exe
/
SOURCE.EXE
/
FORMAT2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-08-07
|
509b
|
28 lines
{ FORMAT2.PAS
Demonstrates use of the Turbo Vision FormatStr procedure using a
parameter array.
}
program DemoFormat;
uses
Drivers, Objects;
type
TParamArray = array[0..1] of LongInt;
var
ParamArray : TParamArray;
ResultStr: String;
begin
ParamArray[0] := LongInt(NewStr('SAMPLE.TXT'));
ParamArray[1] := 654321;
FormatStr( ResultStr, 'File %s is %d bytes in size.', ParamArray );
Writeln( ResultStr );
Write('Press Enter to Continue.');
Readln;
end.